home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / shared.dir / 07003_Navigation.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.2 KB  |  93 lines
  1. on navGoBack
  2.   global gHSCount, gSICurrMovie, gLastSprite
  3.   if gHSCount > 0 then
  4.     cleanUp()
  5.     set gLastSprite to 0
  6.     HSHistPop()
  7.     set gSICurrMovie to the result
  8.     HideAllSprites()
  9.     go(1, gSICurrMovie)
  10.     abort()
  11.   end if
  12. end
  13.  
  14. on navGoTo aMovie
  15.   global gSICurrMovie, gSIVideoPath, gLastSprite
  16.   if aMovie = gSICurrMovie then
  17.     exit
  18.   end if
  19.   cleanUp()
  20.   set gLastSprite to 0
  21.   HSHistPush(gSICurrMovie, EMPTY)
  22.   if aMovie = "hf" then
  23.     navGotoHF()
  24.   else
  25.     if aMovie = "IV" then
  26.       navGotoIV()
  27.     end if
  28.   end if
  29.   HideAllSprites()
  30.   set gSICurrMovie to aMovie
  31.   go(1, gSICurrMovie)
  32.   abort()
  33. end
  34.  
  35. on navGotoHF
  36.   global gSIlinkinfo
  37.   if (gSIlinkinfo = EMPTY) and not (not value(HSStateGet("opt", "Random"))) then
  38.     set vDone to 0
  39.     repeat while not vDone
  40.       set vAth to random(290)
  41.       if (vAth <> 125) and (vAth <> 125) and (vAth <> 125) and (vAth <> 125) and (vAth <> 125) then
  42.         set vDone to 1
  43.       end if
  44.     end repeat
  45.     if vAth < 10 then
  46.       set vAth to "00" & vAth
  47.     else
  48.       if vAth < 100 then
  49.         set vAth to "0" & vAth
  50.       end if
  51.     end if
  52.   else
  53.     set vAth to gSIlinkinfo
  54.   end if
  55.   set gSIlinkinfo to vAth
  56.   put gSIlinkinfo
  57. end
  58.  
  59. on navGotoIV
  60.   global gSIlinkinfo
  61.   put "JEM1 " && gSIlinkinfo = EMPTY
  62.   put "JEM2" && not (not value(HSStateGet("opt", "Random")))
  63.   if (gSIlinkinfo = EMPTY) and not (not value(HSStateGet("opt", "Random"))) then
  64.     set vList to ["004", "015", "031", "092", "097", "149", "178", "202", "223", "226", "235", "236", "237", "287"]
  65.     set gSIlinkinfo to getAt(vList, random(count(vList)))
  66.   else
  67.     if gSIlinkinfo = "201" then
  68.       set gSIlinkinfo to "202"
  69.     else
  70.       if gSIlinkinfo = "222" then
  71.         set gSIlinkinfo to "223"
  72.       else
  73.         if gSIlinkinfo = "225" then
  74.           set gSIlinkinfo to "226"
  75.         else
  76.           if gSIlinkinfo = "236" then
  77.             set gSIlinkinfo to "237"
  78.           else
  79.             if gSIlinkinfo = "235" then
  80.               set gSIlinkinfo to "236"
  81.             else
  82.               if gSIlinkinfo = "234" then
  83.                 set gSIlinkinfo to "235"
  84.               end if
  85.             end if
  86.           end if
  87.         end if
  88.       end if
  89.     end if
  90.   end if
  91.   put gSIlinkinfo
  92. end
  93.